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-title ke) aaa 
-ident 0 ; Edit wHM1002 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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"facility: 
VAX/VMS PL1 runtime Library 

abstract: 
This module contains the pli runtime routines to get items from 
pli stream file under List directed i/o. 

author: c. spitz 28-nov-79 

modified: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. | 
| 
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: external definitions 


$Sdeffcb sdefine file control block 
$defstk idefine stack frame offsets 
$defstr idefine stream block offsets 
$defdat tdefine operand node data types | 


NAME WR OS OD NAME WIN $$ O OO NAME WIN SO OO NAME WR O DOONAN EWA) OWONOUS Wh 


PUPP BBS BY ES BE EE NAN NNN NIIP NI NPONNPONINPONPUDYD 2 PO Os Oe 


SoOCooooooooo 
Cooooo 


PLISGETLISTITEM 16-SEP-1984 02:20:46 VAX/VMS Macro V04-00 Page 
tbOS aes Pi 0:99:48 PLIRTL.SRCIPLIGETLIS.MAR;1 . dh | 
$defgetopt idefine get options block 
$defcvtind sdefine convert indices 
$Srabdef sdefine rms rab offsets 
Srmsdef sdefine rms error codes 


: local data 


rtshare ;sharable 


++ 
pli$get tr 


; from a stream input file under List directed transmission. each routine 
; Saves the target item arte? eee: calls ptt r6é to get the 
to store the item in the target. 


next field, and then calls pli$cvrt_cg_r 


; the es routines are called by the compiled code to get items 
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30000909 09 09 09 09 09 09 09 08 SINSINI NININI NN NNO OOP AOAAOOUU 
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: 
00 ; 
88 
0 
8 
0 
0000 
8 0 
8000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 spli$getichar_ré 
0000 ; inputs: 
0000 3 r0 - address of element to get | 
0000 i? rl = size/precision 
0000 pli$getlchar_ré:: 
oc AC 08 C8 0000 bisl #Watr_m_recur,fcb_l_attr(ap) ;set recursive flag | 
7E 0 7D 0004 movq r0,- tb ;save destination 
00000000'GF 16 0007 jsb gpiis gral to r6 sget input field | 
52 8€ 7D 000D movq sp)+.r sget destination back 
0 D5 0010 tstl r0 iskip field? | 
OA 13 0012 beaql 20$ sif egl. then yes 
54 05 CO 0014 addl #cvt_k_dst_char,r4 set for char dest 
00000000'GF 00 FB 0017 calls #0,g"pTiScirt co_r3 sconvert field to dest 
Oc AC 08 CA OOIE 208: bicl #atr_m_recur,fcb_l_attr(ap) ;clr recursive flag 
05 002 94 rsb sreturn 
3 95 | 
00 96 ;pli$getlvcha_r6 
00 97 ; inputs: | 
4 98 ; r0 - address of element to get 
0 ws. rl = size/precision 
00 100 pli$getlvcha_ré:: 
Oc AC 08 c8 8 101 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursive flag 
6 Bs 0 136 clrw (r0) :clear Length : 
7E_ =—50 D 0029 10 movq r0,-(sp) ;save destination 
09000000 ' GF 16 O002C 104 jsb gc plis getalte re sget input field 
52 43 7D 00 § 105 movq sp)+.r sget destination back 
5 o8 b3 196 tstl r sskip field? 
OA 1 037 10 beql 208 sif egl. then yes 
54 06 C0 SH 198 addl agve k dst_vcha,r4 sset for vcha dest 
00000000'GF 00 FB 00 109 calls #0,g*pli$cirt cor3 sconvert field to dest 
Oc AC 08 CA 004 110 20$: bicl #atr_m_recur,?cb_l_attr(ap) :clr recursive flag 
05 ? FF rsb sreturn 
‘3 113 spli$getlfixb_ré 
4 114 ; inputs: 
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4 115 ; r0 = address of element to get 
4 118 ; rl = size/precision 
4 117 pliS$getlfixb_ré:: 
OC AC 98 cs 04 18 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursive flag 
7 0 D Re 11 movq r0,- $B) save destination 
veo OO'GF 16 4F 120 jsb sd he geen ts,re sget input field 
5 7D 0055 121 mova sp)+,r sget destination back 
03 058 «(1 § tstl r0 skip field? 
OA 1 OSA 1 beql 20$ sif a then yes 
4 01 0 bet 124 addl #cvt_k_ dst_fixb,r4 sset for fixb dest 
00000000'GF 00 FB OOSF 125 calls #0,g*pTi$cirt cg.r3 convert field to dest 
Oc AC 08 CA 8866 1 § 20$: bicl #atr_m_recur,fcb_l_attr(ap) ;clr recursive flag 
05 Bote : rsb sreturn 
0068 1 5 spli$getlfixd_ré 
0068 130 ; inputs: 
0068 131; r0 - address of element to get 
0068 136 3 ri - size/precision 
0068 3 pli$getlfixd_ré:: 
Oc AC O08 C8 O06B 134 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursive flag 
7E $50 7D QO6F 135 mova r0,- se save destination 
O0000000'GF 16 Bo eg 136 jsb vei gownt ta_r6 get input field 
52 8E& 7D 007 13 mova sp)+,r sget destination back 
50 05 0078 138 tstl r0 iskip field? 
OA 13 Baoe 139 beql 208 gtf ogi. then yes 
54 03 CO OO7F 140 addl #cvt_k dst_fixd,r4 zset for fixd dest 
00000000'GF 00 FB 0082 141 calls #0,g"pli$curt cor sconvert field to dest 
Oc AC 08 CA 0089 146 20$: bicl #atr_m_recur,?cb_l_attr(ap) ;clr recursive flag 
05 it 137 rsb sreturn 
it 43 122 0} {Seer bit_ré 
3 inputs: 
QO8E 147 ; “A r0 - address of element to get 
QOO8E 148 ; rl - size/precision 
OO8E 149 ; r2 - offset of target 
OO8E 150 pli$getlbit_ré:: 
Oc AC 08 C8 008 151 bist #atr_m_recur,fcb_l_attr(ap) ;set recursive flag 
7E 50 7D 009 136 movq r0,-Tsp) save destination 
52 OD B99 15 pushl : save offset 
O0000000'GF 16 0097 154 jsb g*pli$$getnlis_ré6 sget input field 
56 8ED0 009D 155 popl ré6 :set offset of dest 
52 8€ 7D QOAO 156 movqg (sp)+,r2 iget destination back 
50 D5 QOA3' 157 tstl r0 skip field? 
pA 13 BRAS 138 beql 20$ sif egt. then yes 
54 yr ¢ A 15 addl #cvt_k_dst_bit,r4 set for bit dest 
00000000'GF 00 FB OOAA 160 calls #0,g"pli$cirt cour sconvert field to dest 
Oc AC 08 CA Boat 161 208: bicl #atr_m_recur,fcb_l_attr(ap) ;clr recursive flag 
05 ye? 166 rsb zreturn 
0B6 164 ;pli$getlabit_ré6 
0B6 165 ; inputs: 
0B6 166 $ - address of element to get 
0B6 167 ; - size/precision 
B6 198 pli$getlabit_ré:: af 
OC AC 08 cs B6 18 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursive flag 
43 50 D BA 170 movq a Pra fb ; ;Save destination 
00000000'°GF 16 D «(171 jsb g*pli$sgetnlis_ré6 get input field 
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52 3 7 C3 17 mova (ap)+ ore get destination back 
D C8 17 tstl c iskip field? 
pa 1 C 174 beal 20$ vif egl. then yes 
54 Ss CA 175 addl Acvt_k_dst_abit,r4 zset for abit dest 
00000000'GF 00 FB O0CD 128 calls #0,g"pli$cirt cg_r3 convert field to dest 
Oc AC 08 CA 3908 177 208: bicl #Watr_m_recur,tcb_l_attr(ap) ;clr recursive flag 
05 43 178 rsb sreturn 
$0p9 180 spli$getlfltb_ré6 
0009 181 ; inputs: 
00D9 1 ¢ 3 - address of element to get 
st 183 ; - size/precision 
009 184 pli$getlfltb_ré:: r 
Oc AC 08 C8 O0D9 185 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursive flag 
E 50 7D O0DD 196 movg r0,- $e) ;save destination | 
00000000'GF 16 QOEO 18 jsb She getatte re iget input field 
52 BE 7D OOE6' 188 mova sp)+,r get destination back 
50 D5 QOE9 189 tstl r0 skip field? 
OA 13 OOEB 190 beql 20$ sif egl. then yes 
54 02 CO OOED 191 addt = #cvt_k_dst_fltb.r4 iset for fltb dest | 
00000000'GF 00 FB OOFO 19¢ calls #0,g*pli$cirt cg.r sconvert field to dest 
OC AC 08 CA OOF? 193 208: bicl Watr_m_recur,?tcb_l_attr(ap) ;clr recursive flag 
05 apee 138 rsb sreturn 
OOF 196 zpliSgetitltd 6 
; inputs: 
OOFC 198 ; - address of element to get 
OOFC 199 ; - size/precision 
OOFC 200 pli$getlfltd_ré:: : 
Oc AC 08 C8 OOFC 01 bisl #Watr_m_recur,fcb_l_attr(ap) ;set recursive flag 
7E 50 7D B100 02 movg r0,- 3p zsave destination 
00000000'GF 16 010 03 sb g piss getalisré get input field 
52 8€ 7D 0109 04 movq sp)+,r ger destination back 
50 D5 010C 05 tstl rd iskip field? 
OA 13 8195 06 beql 203 sif egl. then yes 
54 04 CO 011 a4 addl #cvt_k_dst_fltd,r4 sset for fltd dest 
00000000'GF 00 FB 0113 208 calls #0,g*pliScirt co.rs sconvert field to dest 
Oc AC 08 CA OIA 09 208: bicl #atr_m_recur,?cb_l_attr(ap) ;clr recursive flag 
05 OIE 10 rsb return 
gr Bt 
O11F 8 spli$getlpic_ré 
O11F 14 ; inputs: 
Bit 19 3 - address of element to get 
11F 18 : - size/precision 
Bie 1 plisget pic r6:: 
Oc AC 08 C8 OIF 18 isT #atr_m_recur,fcb_l_attr(ap) ;set recursive flag 
7E = 50 67D 0123 1 movq r0,- Hy ‘ ;save destination 
00000000'GF 16 0126 0 jsb Bs he qetalis_ré get input field 
52 7D 012C 1 movg sp)+,r sget destination back 
0 12F § tstl r skip field? 
1 131 beql 208 :if egt. then yes 
54 8 CO 0133 4 adadl aeve k_ dst_pic.r4 zset for pic dest 
00000000 ' GF FB 0136 5 calls #0, g"pli$cirt_cg_r3 sconvert field to dest 
OC AC 8 cA 13D § 208: bicl #atr_m_recur,fcb_l_attr(ap) ;clr recursive flag 
5 ie} rsb preturn | 
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PSECT name Allocation PSECT No. Attributes 
, Oa -% eeesesy: ; } oF I 0.) NOPIC USR CON ABS LCL a te NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFF Q:) }.) NOPIC USR CON ABS LCL NOSHR EXE RD — WRT NOVEC BYTE 
_PLISCODE poo0014s < 3222) 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
down cw momen seem anwar oe Se 
! \ Per tormance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 00:00:00.05 00:00:00.64 
zounens processing 73 00:00:00.55 00:00:03.51 
s 1 188 00:00:06.81 00:00:17.31 
Synbol table sort 0 00:00:00.66 00:00:01.48 
s 2 46 00:00:01.25 00:00:03.66 
Cosbot table output 8 00:00:00.07 00:00:00.07 
Psect synopsis output 2 -00:00:00.03 00:00:00.24 
Cross-reference outout 0 00:00:00.00 00:00:00.00 
Assembler run totais 327 00:00:09.42 00:00:26.96 


The working set Limit was 900 pages. 

352335 bytes (69 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 574 non-local and 9 local symbols. 
229 source lines were read in Pass 1, producing 11 aprons records in Pass 2 

20 pages of virtual memory were used to define 18 macros 


weer nee wen mm ee wm neem m meme ew $ 


Be ee ewe ewe ee Hee em eR ewe eee + 


Macro Library name Macros defined 
-$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 7 
“$255$DUA28: (SYSLIBISTARLET. MLB; 2 7 

TOTALS (all Libraries) 14 


623 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIGETLIS/OBJ=OBJ$:PLIGETLIS MSRC$:PLIGETLIS/UPDATE=(ENHS$:PLIGETLIS)+LIBS:PLIRTM 
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